home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 351-375 / disk_352 / treewalk / rexx / rootname.ftw < prev    next >
Text File  |  1992-05-06  |  170b  |  9 lines
  1. /*
  2.  * Simple routine to return the rootname for files.rexx
  3.  */
  4. name = arg(2)
  5. dot = lastpos('.', name)
  6. if dot < 2 then say name
  7. else say substr(name, 1, dot - 1)
  8. return 1
  9.